home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 April / Software of the Month Club 1996 April.iso / pc / os2 / psutils / cmd / fixscr~1.cmd < prev    next >
OS/2 REXX Batch file  |  1996-02-21  |  466b  |  22 lines
  1. extproc perl5 -x
  2. #! perl5
  3.  
  4. # fixscribeps: get conforming PostScript out of Scribe
  5. #
  6. # Copyright (C) Angus J. C. Duggan 1991-1995
  7. # See file LICENSE for details.
  8.  
  9. $inepsf = 0;
  10. $epsfn = 0;
  11. while (<>) {
  12.    if (/^([0-9]+ [0-9]+ [0-9]+ PB) (%!.*)/) {
  13.       print "$1\n%%BeginDocument: Scribe-EPSF $epsfn 0\n$2\n";
  14.       $inepsf++;
  15.    } elsif (/^ PE/ && $inepsf) {
  16.       print "%%EndDocument\n", $_;
  17.    } else {
  18.       print $_;
  19.    }
  20. }
  21. # End of Script
  22.